#/usr/bin/env perl

use utf8;

$count = 0;

while($count < 10){
	$count += 2;
	print "count is now $count\n";##依次打印 2 4 6 8 10
}
